home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / 87stack.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-08  |  1.3 KB  |  22 lines
  1. 1000   ' |---------------------------------------------|
  2. 1010   ' |    Example for 8087 Programming, Part 3     |
  3. 1020   ' |    Personal Computer Age 3.1 Solveware      |
  4. 1030   ' | Demonstrate 8087 Register Stack Operations  |
  5. 1040   ' |---------------------------------------------|
  6. 1050   '
  7. 1060                          '*Reserve space for machine
  8. 1070                          '*language subroutines
  9. 1080          CLEAR ,29999
  10. 1090                          '*Initialize screen, variable
  11. 1100                          '*types, 8087 tag word masks,
  12. 1110                          '*and subroutine starting
  13. 1120                          '*addresses
  14. 1130          CLS                                                                    :KEY OFF                                                                        :PRINT "Storing machine code. . ."
  15. 1140          DEFINT A-Z                                                             :DIM MASK(3), MTAG(7)
  16. 1150        MASK(0)=3                                                              :MASK(1)=12                                                                     :MASK(2)=48                                                                     :MASK(3)=192
  17. 1160          INIT87=30000
  18. 1170          LD87=30020
  19. 1180          ADD87=30070
  20. 1190          MUL87=30100
  21. 1200        
  22.